(symbols "findMethodHandles" 'pico)

(when (>= (javaVersion T) (1 7) )
  (de findMethodHandle (MethodHandles TypeString)
    (thread MethodHandles
      (map+ find
        (quote (MethodHandle)
          (thread MethodHandle
            (java "type")
            pack
            (= TypeString) ) ) ) ) )
  (de pico~findMethodHandle @
    (pass findMethodHandle) ) )